<script>on mouseUpput fld "Minimum" into minQput fld "Maximum" into maxQask "Order what quantity ?" & return & "(Minimum is "& minQ & ", Maximum is "&¬maxQ & " or enter “0” or “none” to order none.)" with meif it = "" then exit mouseUpgo this cdspinCursorput it into nif n = "None" then put 0 into nif n is not a number thenbeepanswer "“"& n & "” is not a valid number."& return & "Please enter a value between "&¬minQ & "and "& maxQ & "."else if n > maxQ thenanswer "Sorry, the maximum order is "&maxQ&" packs." with ("Order "&maxQ) or "Cancel"if it = "Cancel" thenexit mouseUpelse put maxQ into nelse if n < minQ and n is not 0 thenanswer "Sorry, the minimum order is "&minQ&" packs." with ("Order "&minQ) or "Cancel"if it = "Cancel" thenexit mouseUpelse put minQ into nend iflock screenput n into mereCalcStdunlock screenend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>165</left>
<top>163</top>
<right>219</right>
<bottom>182</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Unit Price</name>
<script></script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>154</left>
<top>182</top>
<right>219</right>
<bottom>201</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Extended Price</name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>419</left>
<top>143</top>
<right>460</right>
<bottom>162</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Imprinted Quan</name>
<script>on mouseUpput fld "Minimum" into minQput fld "Maximum" into maxQask "Order what quantity ?" & return & "(Minimum is "& minQ & ", Maximum is "&¬maxQ & " or enter “0” or “none” to order none.)" with meif it = "" then exit mouseUpgo this cdspinCursorput it into nif n = "None" then put 0 into nif n is not a number thenbeepanswer "“"& n & "” is not a valid number."& return & "Please enter a value between "&¬minQ & "and "& maxQ & "."else if n > maxQ thenanswer "Sorry, the maximum order is "&maxQ&" packs." with ("Order "&maxQ) or "Cancel"if it = "Cancel" thenexit mouseUpelse put maxQ into nelse if n < minQ and n is not 0 thenanswer "Sorry, the minimum order is "&minQ&" packs." with ("Order "&minQ) or "Cancel"if it = "Cancel" thenexit mouseUpelse put minQ into nend iflock screenput n into mereCalcImprintunlock screenend mouseUp</script>
<script>on mouseUpglobal gOrderData,gOrderIDs,gPartID,gImprintLine,gImprintList,gImprintDataTemp,gLastCdID2lock screenspinCursorput "" into newImprintput "" into newStdput fld "Minimum" into minQput fld "Quan" into theQuan1put fld "Imprinted Quan" into theQuan2if theQuan1 < minQ and theQuan1 is not 0 thenanswer "Sorry, the minimum order of standard literature is "&minQ&" packs." with ("Order "&minQ) or "Cancel"if it = "Cancel" thenexit mouseUpelselock screenput minQ into fld "Quan"reCalcStdunlock screengo this cdend ifend ifif theQuan2 < minQ and theQuan2 is not 0 thenanswer "Sorry, the minimum order of imprinted literature is "&minQ&" packs." with ("Order "&minQ) or "Cancel"if it = "Cancel" thenexit mouseUpelselock screenput minQ into fld "Imprinted Quan"reCalcStdunlock screenend ifend if--•• Remove old occurrence(s)put pad(fld "Part",11) into partput LineWordOffset(part,gOrderData) into theLineput "" into oldImprintif theLine is not 0 thenput (char 38 of line theLine of gOrderData = "Y") into isImprintdelete line theLine of gOrderDatadelete line theLine of gOrderIDsput line theLine of gImprintList into oldImprintdelete line theLine of gImprintListif char 1 to 11 of line theLine of gOrderData = part then--•• also imprinted on orderdelete line theLine of gOrderDatadelete line theLine of gOrderIDsput line theLine of gImprintList into oldImprintdelete line theLine of gImprintListend ifend ifif theQuan1 = 0 and theQuan2 = 0 thenhideDLOGexit mouseUpend ifif gImprintDataTemp is not "" thenput gImprintDataTemp into oldImprintput "" into gImprintDataTempend ifput fld "Units" into unitsif theQuan1 > 0 thenput part & pad(char 1 to 24 of fld "Title",26) & pad("N",7) &¬pad(theQuan1,8) & pad(units,6) & pad(units * theQuan1,7) &¬pad(fld "Unit Price",6,before) & pad(fld "Extended Price",10,before)¬& return into newStdend ifif theQuan2 > 0 thenput part & pad(char 1 to 24 of fld "Title",26) & pad("Y",7) &¬pad(theQuan2,8) & pad(units,6) & pad(units * theQuan2,7) &¬pad("Imprint",6,before) &¬pad(fld "Imprinted Extended Price",9,before)¬& return into newImprintend ifif theLine > 0 thenif newStd is not "" thenput newStd before line theLine of gOrderDataput gPartID & return before line theLine of gOrderIDsput theLine+1 into theLineend ifif newImprint is not "" thenput newImprint before line theLine of gOrderDataput gPartID & return before line theLine of gOrderIDsif oldImprint is not "" then put oldImprint before line theLine of gImprintListend ifelseif newStd is not "" thenput newStd after gOrderDataput gPartID & return after gOrderIDsend ifif newImprint is not "" thenput newImprint after gOrderDataput gPartID & return after gOrderIDsput number of lines of gOrderData into theLineif oldImprint is not "" then put oldImprint into line theLine of gImprintListend ifend ifif newImprint is not "" and oldImprint = "" thenanswer "You will need to specify what you would like imprinted on this literature."&¬return & "Would you like to do this now?" with "No" or "Yes"-- else if newImprint is not "" then-- repeat until "≈" is not in oldImprint-- put return into char (offset("≈",oldImprint)) of oldImprint-- end repeat-- answer "Would you like to edit what will be imprinted on this literature?" with "No" or "Yes"end ifif it = "Yes" thenput theLine into gImprintLineput fld "Imprinted Quan" into tQput fld "Title" into titleput gPartID into gLastCdID2LinkToCard "Imprinting",,falseput "Imprint “"& title &"” with what?" into cd fld "Header"repeat until "≈" is not in oldImprintput return into char (offset("≈",oldImprint)) of oldImprintend repeatif oldImprint is not "" then put oldImprint into cd fld "Imprint"unlock screen with dissolve very fastselect after text of cd fld "Imprint"else hideDLOGend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>307</left>
<top>306</top>
<right>419</right>
<bottom>325</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>20</textHeight>
<name>Title</name>
<script></script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>13</left>
<top>295</top>
<right>44</right>
<bottom>309</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Units</name>
<script></script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>47</left>
<top>296</top>
<right>102</right>
<bottom>310</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Minimum</name>
<script></script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>107</left>
<top>296</top>
<right>162</right>
<bottom>310</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Maximum</name>
<script></script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>164</left>
<top>296</top>
<right>219</right>
<bottom>310</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Price</name>
<script></script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>14</left>
<top>311</top>
<right>198</right>
<bottom>325</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Part</name>
<script></script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>13</left>
<top>328</top>
<right>137</right>
<bottom>342</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Type</name>
<script></script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>24</left>
<top>76</top>
<right>496</right>
<bottom>109</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>CB Futura CondensedBold</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>DITL</name>
<script></script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>203</left>
<top>306</top>
<right>282</right>
<bottom>326</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>C Futura Condensed</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<name>Inprintable</name>
<script></script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>67</left>
<top>141</top>
<right>127</right>
<bottom>160</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>C Futura Condensed</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>PackQ1</name>
<script></script>
</part>
<part>
<id>26</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>309</left>
<top>141</top>
<right>369</right>
<bottom>160</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>C Futura Condensed</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>PackQ2</name>
<script></script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>460</left>
<top>141</top>
<right>473</right>
<bottom>153</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Up</name>
<script>on mouseDownglobal gstartTicksset the hilite of me to TRUEput fld "Imprinted Quan" into qtyput fld "Maximum" into maxQif qty ‚â• maxQ thenbeepset the hilite of me to falseexit mouseDownend ifadd 1 to qtyif qty >maxQ then put maxQ into qtyput qty into fld "Imprinted Quan"put the ticks into gstartTickswait 2end mouseDownon mouseStillDownglobal gstartTicksput fld "Imprinted Quan" into qtyput fld "Maximum" into maxQif qty ‚â• maxQ then exit mouseStillDownif the ticks - gstartTicks > 100 thenadd 10 to qtyelse add 1 to qtyif qty > maxQ then put maxQ into qtyput qty into fld "Imprinted Quan"wait 2end mouseStillDownon mouseupset the hilite of me to FALSEreCalcImprintend mouseupon mouseLeavemouseUpend mouseLeave</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>460</left>
<top>152</top>
<right>473</right>
<bottom>164</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Down</name>
<script>on mouseDownglobal gstartTicksset the hilite of me to TRUEput fld "Imprinted Quan" into qtyif qty ≤ 0 thenbeepset the hilite of me to falseexit mouseDownend ifsubtract 1 from qtyif qty < 0 then put 0 into qtyput qty into fld "Imprinted Quan"put the ticks into gstartTickswait 2end mouseDownon mouseStillDownglobal gstartTicksput fld "Imprinted Quan" into qtyif qty ≤ 0 then exit mouseStillDownif the ticks - gstartTicks > 100 thensubtract 10 from qtyelse subtract 1 from qtyif qty < 0 then put 0 into qtyput qty into fld "Imprinted Quan"wait 2end mouseStillDownon mouseupset the hilite of me to FALSEreCalcImprintend mouseupon mouseLeavemouseUpend mouseLeave</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>217</left>
<top>141</top>
<right>230</right>
<bottom>153</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Up</name>
<script>on mouseDownglobal gstartTicksset the hilite of me to TRUEput fld "Quan" into qtyput fld "Maximum" into maxQif qty ‚â• maxQ thenbeepset the hilite of me to falseexit mouseDownend ifadd 1 to qtyif qty >maxQ then put maxQ into qtyput qty into fld "Quan"put the ticks into gstartTickswait 2end mouseDownon mouseStillDownglobal gstartTicksput fld "Quan" into qtyput fld "Maximum" into maxQif qty ‚â• maxQ then exit mouseStillDownif the ticks - gstartTicks > 100 thenadd 10 to qtyelse add 1 to qtyif qty > maxQ then put maxQ into qtyput qty into fld "Quan"wait 2end mouseStillDownon mouseupset the hilite of me to FALSEreCalcStdend mouseupon mouseLeavemouseUpend mouseLeave</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>217</left>
<top>152</top>
<right>230</right>
<bottom>164</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Down</name>
<script>on mouseDownglobal gstartTicksset the hilite of me to TRUEput fld "Quan" into qtyif qty ≤ 0 thenbeepset the hilite of me to falseexit mouseDownend ifsubtract 1 from qtyif qty < 0 then put 0 into qtyput qty into fld "Quan"put the ticks into gstartTickswait 2end mouseDownon mouseStillDownglobal gstartTicksput fld "Quan" into qtyif qty ≤ 0 then exit mouseStillDownif the ticks - gstartTicks > 100 thensubtract 10 from qtyelse subtract 1 from qtyif qty < 0 then put 0 into qtyput qty into fld "Quan"wait 2end mouseStillDownon mouseupset the hilite of me to FALSEreCalcStdend mouseupon mouseLeavemouseUpend mouseLeave</script>
</part>
<part>
<id>32</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>387</left>
<top>243</top>
<right>460</right>
<bottom>262</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Total Price</name>
<script></script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>318</left>
<top>222</top>
<right>426</right>
<bottom>240</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Edit Imprint</name>
<script>on mouseUpglobal gOrderData,gOrderIDs,gPartID,gImprintLine,gImprintList,gLastCdID2,gImprintDataTemplock screenspinCursorput "" into newImprintput "" into newStdput fld "Minimum" into minQput fld "Quan" into theQuan1put fld "Imprinted Quan" into theQuan2if theQuan1 < minQ and theQuan1 is not 0 thenanswer "Sorry, the minimum order of standard literature is "&minQ&" packs." with ("Order "&minQ) or "Cancel"if it = "Cancel" thenexit mouseUpelselock screenput minQ into fld "Quan"reCalcStdunlock screengo this cdend ifend ifif theQuan2 < minQ and theQuan2 is not 0 thenanswer "Sorry, the minimum order of imprinted literature is "&minQ&" packs." with ("Order "&minQ) or "Cancel"if it = "Cancel" thenexit mouseUpelselock screenput minQ into fld "Imprinted Quan"reCalcStdunlock screenend ifend if-- if theQuan1 = 0 and theQuan2 = 0 then-- hideDLOG-- exit mouseUp-- end if--•• Remove old occurrence(s)put pad(fld "Part",11) into partput LineWordOffset(part,gOrderData) into theLineput "" into oldImprintif theLine is not 0 thenput (char 38 of line theLine of gOrderData = "Y") into isImprintdelete line theLine of gOrderDatadelete line theLine of gOrderIDsif isImprint thenput line theLine of gImprintList into oldImprintdelete line theLine of gImprintListelse if char 1 to 11 of line theLine of gOrderData = part thendelete line theLine of gImprintList--•• also imprinted on orderdelete line theLine of gOrderDatadelete line theLine of gOrderIDsput line theLine of gImprintList into oldImprintdelete line theLine of gImprintListend ifend ifif gImprintDataTemp is not "" thenput gImprintDataTemp into oldImprintput "" into gImprintDataTempend ifput fld "Units" into unitsif theQuan1 > 0 thenput part & pad(char 1 to 24 of fld "Title",26) & pad("N",7) &¬pad(theQuan1,8) & pad(units,6) & pad(units * theQuan1,7) &¬pad(fld "Unit Price",6,before) & pad(fld "Extended Price",10,before)¬& return into newStdend ifif theQuan2 > 0 thenput part & pad(char 1 to 24 of fld "Title",26) & pad("Y",7) &¬pad(theQuan2,8) & pad(units,6) & pad(units * theQuan2,7) &¬pad("Imprint",6,before) &¬pad(fld "Imprinted Extended Price",9,before)¬& return into newImprintend ifif theLine > 0 thenif newStd is not "" thenput newStd before line theLine of gOrderDataput gPartID & return before line theLine of gOrderIDsput theLine+1 into theLineend ifif newImprint is not "" thenput newImprint before line theLine of gOrderDataput gPartID & return before line theLine of gOrderIDsif oldImprint is not "" then put oldImprint before line theLine of gImprintListend ifelseif newStd is not "" thenput newStd after gOrderDataput gPartID & return after gOrderIDsend ifif newImprint is not "" thenput newImprint after gOrderDataput gPartID & return after gOrderIDsput number of lines of gOrderData into theLineif oldImprint is not "" then put oldImprint into line theLine of gImprintListend ifend ifput theLine into gImprintLineput fld "Imprinted Quan" into tQput fld "Title" into titleput short id of this cd into gLastCdID2LinkToCard "Imprinting",,falseput "Imprint “"& title &"” with what?" into cd fld "Header"repeat until "≈" is not in oldImprintput return into char (offset("≈",oldImprint)) of oldImprintend repeatif oldImprint is not "" then put oldImprint into cd fld "Imprint"unlock screen with dissolve very fastselect after text of cd fld "Imprint"end mouseUp</script>
